home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlSliderGetPos.au3 < prev    next >
Encoding:
Text File  |  2007-09-08  |  886 b   |  28 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiSlider.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $Gui_Slider, $slider1, $button, $msg, $h_slider, $Status, $Pos = 0
  7.  
  8. $Gui_Slider = GUICreate("Slider Get Pos",220,100)
  9. GUISetBkColor (0x00E0FFFF)  ; will change background color
  10.  
  11. $slider1 = GUICtrlCreateSlider (10,10,200,20)
  12. GUICtrlSetLimit(-1,200,0)    ; change min/max value
  13. $button = GUICtrlCreateButton ("Value?",75,50,70,20)
  14. GUISetState()
  15. GUICtrlSetData($slider1,45)    ; set cursor
  16. $h_slider = ControlGetHandle($Gui_Slider, "", "msctls_trackbar321")
  17. $Status = GUICtrlCreateLabel("Pos: " & _GUICtrlSliderGetPos($h_slider), 0, 80, 220, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  18.  
  19. While 1
  20.   $msg = GUIGetMsg ()
  21.    Select
  22.       Case $msg = $GUI_EVENT_CLOSE
  23.          ExitLoop
  24.       Case $msg = $button
  25.             GUICtrlSetData($Status,"Pos: " & _GUICtrlSliderGetPos($h_slider))
  26.         EndSelect
  27. WEnd
  28.